$├7┴8 ╔F ╘╥┴├╦ [$55] IS NOT ZERO THEN THERE IS ANOTHER BLOCK TO THE FILE SO BRANCH TO ─┼╠1 TO HANDLE IT.
$├7┴├ ╩╙╥ ═┴╨╧╒╘ [$┼├86] TO WRITE OUT THE NEW ┬┴═.
$├7┴╞ ┼XIT WITH A JUMP TO ╞╥┼├╚╬ [$─2┼2] TO FREE THE INTERNAL READ CHANNEL.
$├7┬2 ─┼╠1 ╩╙╥ ╞╥┼╘╙ [$┼├─8] TO MARK THIS TRACK AND SECTOR AS FREE.
$├7┬5 ╩╙╥ ╬╪╘┬╒╞ [$─4┬7] TO GET THE NEXT BLOCK IN THE FILE.
$├7┬8 ╩UMP TO ─┼╠2 TO CONTINUE DELETING THE FILE.
─┼╠─╔╥ ─ELETE THE CURRENT DIRECTORY ENTRY
$├7┬┬ ┌ERO .┴ AND .┘ AND SAVE .┴ IN (─╔╥┬╒╞),┘ [($69),┘] WHICH SETS THE STATUS AND TYPE FOR THE CURRENT FILE TO ZERO (IE AN AVAILABLE ENTRY).
$├7├0 ╩╙╥ ╫╥╘╧╒╘ [$─┼02] TO WRITE OUT THE DIRECTORY BLOCK.
$├7├3 ┼XIT WITH A JUMP TO ╫┴╘╩╧┬ [$─5╞7] TO WAIT FOR THE JOB TO COMPLETE.
─╒╨╠├╘ ─UPLICATE A DISKETTE
$├7├6 ╔F ─╒┴╠╞╠ [$┬7] IS NOT ZERO THEN THIS IS A DUAL DRIVE SO BRANCH TO ─╒╨╠┬╥ TO CONTINUE.
$├7├┴ ╠OAD .┴ WITH $74 (─╥╔╓┼ ╬╧╘ ╥┼┴─┘) AND EXIT WITH A JUMP TO ├═─┼╥╥ [$├0╞─].
─╒╨╠┬╥ ─UPLICATE COMMAND PROCESSING
$├7├╞ ╩╙╥ ─╒╨╨╥═ [$├9╞7] TO PARSE THE DUPLICATE COMMAND.
$├7─2 ├OPY THE SOURCE DRIVE NUMBER FROM ╞╔╠─╥╓+1 [$4├6─] TO ─╥╓╬╒═ [$54].
$├7─7 ╩╙╥ ╙┼╘─╠─ [$├02─] TO TURN ON THE ╠┼─ FOR THIS DRIVE.
$├7─┴ ╩╙╥ ╔╬╔╘─╥ [$─0╞9] TO INITIALIZE THE DRIVE.
$├7── ╩╙╥ ╙┼╠┬┴═ [$┼─┴8] TO SET ┬═╨╬╘ [$46-$47] TO THE ┬┴═ FOR THE SOURCE DRIVE.
$├7┼0 ╠OAD .┘ WITH $02 AND IF (┬═╨╬╘),┘ [($46),┘] (THE DISK FORMAT CHARACTER) MATCHES ╓┼╥╬╒═ [$╞┼┬9] (THE FORMAT TYPE FOR THIS ─╧╙ THEN BRANCH TO ─╒╨1 TO CONTINUE.
$├7┼9 ╘ERMINATE WITH A JUMP TO ╓╬┼╥╥ [$─5─3] TO INDICATE A ─╧╙ MISMATCH.
$├7┼├ ─╒╨1 ╩╙╥ ╘╧╟─╥╓ [$├2┴9] TO SWITCH TO THE OTHER DRIVE.
$├7┼╞ ╩╙╥ ╙┼╘─╠─ [$├02─] TO TURN ON THE ╠┼─ FOR THE DESTINATION DRIVE.
$├7╞2 ╙ET .┘ TO THE DESTINATION DRIVE NUMBER AND SET .╪ TO THE SOURCE DRIVE NUMBER.
$├7╞8 ├OPY THE SOURCE DISK ╔─ IN ─╙╦╔─1,╪ [$4├24,╪] AND ─╙╦╔─2,╪ [$4├26,╪] TO THE DESTINATION DISK ╔─ IN ─╙╦╔─1,┘ [$4├24,┘] AND ─╙╦╔─2,┘ [$4├26,┘].
║FP
$├804 ╩╙╥ ╙┼╠┬┴═ [$┼─┴8] TO SET ┬═╨╬╘ [$46-$47] TO THE ┬┴═ FOR THE DESTINATION DRIVE.
$├807 ╙ET THE FORMAT CHARACTER FOR THE DESTINATION DISKETTE TO ╓┼╥╬╒═ [$╞┼┬9].
$├80┼ ╩╙╥ ├╠─├╚╬ [$─3┬┴] TO CLOSE ALL CHANNELS.
$├811 ╫E ARE NOW SET TO DUPLICATE THE DISK SO DISABLE INTERRUPTS AND ╩╙╥ ╞╧╥═┴╘ [$╞820] TO FORMAT THE DESTINATION DISK.
$├815 ╩╙╥ ═╧╓╚─1 [$╞700] TO POSITION READ/WRITE HEAD TO TRACK 1 ON THE DESTINATION DISK.
$├818 ╩╙╥ ╙╫╔─╥╓ [$├85┼] TO SWITCH TO THE OTHER DRIVE.
$├81┬ ╩╙╥ ═╧╓╚─1 [$╞700] TO POSITION READ WRITE HEAD TO TRACK 1 ON THE SOURCE DISK.
$├81┼ ╩╙╥ ╘╧╟─╥╓ [$├2┴9] TO CHANGE DRIVE NUMBERS.
$├821 ╙ET ├╒╥╘╥╦ [$4├╞7] TO $01 (IE. WE ARE CURRENTLY DUPLICATING TRACK 1).
$├826 ─╒╨2 ╘HIS IS THE MAIN DUPLICATION LOOP - DISABLE INTERRUPTS.
$├827 ╩╙╥ ─╒╨╘╥╦ [$├867] TO DUPLICATE THE CURRENT TRACK.
$├82┴ ╔NCREMENT ├╒╥╘╥╦ [$4├╞7] AND IF IT HAS REACHED ═┴╪╘╥╦ [$4├╞6] THEN WE ARE FINISHED SO BRANCH TO ─╒╨3.
$├835 ╙AVE CURRENT TRACK NUMBER ON THE STACK.
$├836 ╩╙╥ ═╧╓╚┼─ [$╞693] TO POSITION THE READ/WRITE HEAD TO THE NEXT TRACK TO BE DUPLICATED.
$├839 ╩╙╥ ╙╫╔─╥╓ [$├85┼] TO SWITCH TO THE DESTINATION DRIVE.
$├83├ ╥ESTORE THE TRACK NUMBER FROM THE STACK.
$├83─ ╩╙╥ ═╧╓╚┼─ [$╞693] TO POSITION THE DESTINATION DRIVE TO THE SAME TRACK.
$├840 ╩╙╥ ╙╫╔─╥╓ [$├85┼] TO SWITCH BACK TO THE SOURCE DRIVE.
$├843 ╩UMP TO ─╒╨2 TO DUPLICATE THIS TRACK.
$├846 ─╒╨3 ─UPLICATION COMPLETED WITHOUT ERRORS - ENABLE INTERRUPTS.
$├847 ╩╙╥ ╔╬╔╘─╥ [$─0╞9] TO INITIALIZE THE DRIVE.
$├84┴ ╩╙╥ ╠┼─╧╞╞ [$├018] TO TURN OFF ╠┼─S FOR THIS DRIVE.
$├84─ ╩╙╥ ╘╧╟─╥╓ [$├2┴9] TO SWITCH TO THE OTHER DRIVE.
$├850 ╩╙╥ ╔╬╔╘─╥ [$─0╞9] TO INITIALIZE THE DRIVE.
$├853 ╩╙╥ ╠┼─╧╞╞ [$├018] TO TURN OFF THE ╠┼─S.
$├856 ╙ET ------ [$4┼┴4] TO ZERO AND TERMINATE THE COMMAND WITH A JUMP TO ┼╬─├═─ [$├0├╞].
╙╫╔─╥╓ ╙WITCH TO OTHER DRIVE AND TURN ON MOTOR
$├85┼ ╔NVERT THE DRIVE NUMBER IN ─╥╔╓┼ [$┬0] BY ┼╧╥ING IT WITH $01.
$├864 ╩UMP TO ╧╬─┼╠ [$╞733] TO TURN ON THE DRIVE MOTOR.
